function AnimateOrbit_CRTBP(t,S,DU,TU,u,GM_central,cameraPosition,cameraTarget)

    ScreenSize = get(0,'ScreenSize');
    %[]Determines the location and dimensions of the current monitor.
    
    Window = figure( ...
        'Color','k', ...
        'Name','ORBIT IN THREE DIMENSTIONS', ...
        'NumberTitle','Off', ...
        'OuterPosition',ScreenSize);
    %[]Opens a new window and adjusts its properties.
    
    Axes = axes( ...
        'CameraPosition',cameraPosition, ...
        'CameraTarget',cameraTarget, ...
        'FontName','Arial', ...
        'FontSize',8, ...
        'FontWeight','Bold', ...
        'Parent',Window, ...
        'PlotBoxAspectRatio',[1,1,1], ...
        'NextPlot','Add', ...
        'XLim',[-1.5,1.5], ...
        'YLim',[-1.5,1.5], ...
        'ZLim',[-1.5,1.5], ...
        'Color','k');
    %[]Adds an axes to the specified window and adjusts its properties.
        
    plot3(R(1,:),R(2,:),R(3,:), ...
        'Color','w', ...
        'LineStyle','None', ...
        'Marker','.', ...
        'Parent',Axes);
    %[]Adds a plot to the specified axes and adjusts its properties.
    
    plot3([0,Extent],[0,0],[0,0], ...
        'Color','r', ...
        'Linestyle','-', ...
        'LineWidth',3, ...
        'Marker','None', ...
        'Parent',Axes);
    %[]Adds a plot to the specified axes and adjusts its properties.
    
    plot3([0,0],[0,Extent],[0,0], ...
        'Color','r', ...
        'Linestyle','-', ...
        'LineWidth',3, ...
        'Marker','None', ...
        'Parent',Axes);
    %[]Adds a plot to the specified axes and adjusts its properties.
    
    plot3([0,0],[0,0],[0,Extent], ...
        'Color','r', ...
        'Linestyle','-', ...
        'LineWidth',3, ...
        'Marker','None', ...
        'Parent',Axes);
    %[]Adds a plot to the specified axes and adjusts its properties.
    
    xlabel( ...
        'Earth Radii', ...
        'FontSize',16, ...
        'Parent',Axes);
    %[]Adds a label to the specified axis.
    
    ylabel( ...
        'Earth Radii', ...
        'FontSize',16, ...
        'Parent',Axes);
    %[]Adds a label to the specified axis.
    
    zlabel( ...
        'Earth Radii', ...
        'FontSize',16, ...
        'Parent',Axes);
    %[]Adds a label to the specified axis.

    
end
%===================================================================================================